Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Label1.Click
        Me.CommonProcedure()
    End Sub
 
    Private Sub Label1_DoubleClick(sender As System.Object, e As _
      System.EventArgs) Handles Label1.DoubleClick
        Me.CommonProcedure()
    End Sub
 
    Private Sub CommonProcedure()
        'Do sth
    End Sub