اريد اعرف اسم الفورم الحالى - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.SqlClient
Public Class UserData
    Dim UCmd As SqlCommand
    Dim DTable As New DataTable



#Region " properties  "
    Public Property UserID As Integer
    Private _UserName As String
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal value As String)
            If value.Length = 0 Then
                MsgBox("أدخـــــل الأســــــم بالكامل")
                Exit Property
            End If
            _UserName = value
        End Set
    End Property

    Private _UserPass As String
    Public Property UserPass() As String
        Get
            Return _UserPass
        End Get
        Set(ByVal value As String)
            If value.Length = 0 Then
                MsgBox("أدخــــل كلمة مرور ")
                Exit Property
            End If
            _UserPass = value
        End Set
    End Property

    Private _Phone As String
    Public Property Phone() As String
        Get
            Return _Phone
        End Get
        Set(ByVal value As String)
            _Phone = value
        End Set
    End Property

    Private _Jaw As String
    Public Property Jaw() As String
        Get
            Return _Jaw
        End Get
        Set(ByVal value As String)
            _Jaw = value
        End Set
    End Property

    Private _Address As String
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            If value.Length = 0 Then
                MsgBox("أدخل العنــــوان")
                Exit Property
            End If
            _Address = value

        End Set
    End Property

#End Region

#Region "  Constractor "

    Public Sub New(ByVal UName As String, _
                   ByVal UPass As String, ByVal Phn As String, _
                   ByVal Jw As String, ByVal Adrs As String)
        Me.UserName = UName
        Me.UserPass = UPass
        Me.Phone = Phn
        Me.Jaw = Jw
        Me.Address = Adrs
    End Sub

#End Region

#Region " Functions "
    '-- Add 
    Public Function AddUser() As Boolean
        Dim UCmd = New SqlCommand("AddNewUser", MyDatabaseCon.Cn) With {.CommandType = CommandType.StoredProcedure}
        UCmd.Parameters.Clear()
        With UCmd.Parameters
            .AddWithValue("@UserName", Me.UserName)
            .AddWithValue("@UserPass", Me.UserPass)
            .AddWithValue("@Phone", Me.Phone)
            .AddWithValue("@Jaw", Me.Jaw)
            .AddWithValue("@Address", Me.Address)
        End With
        Try
            MyDatabaseCon.Open() : UCmd.ExecuteNonQuery() : MyDatabaseCon.Close()
            Return True
            UCmd.Parameters.Clear()

        Catch ex As SqlException
            MyDatabaseCon.Close()
            Throw New Exception

        End Try
    End Function


#End Region
    Public Function GetAllUsrs() As DataTable
        Dim UCmd = New SqlCommand("GetAllUsers", MyDatabaseCon.Cn) With {.CommandType = CommandType.StoredProcedure}
        Try
            MyDatabaseCon.Open()
            DTable.Load(UCmd.ExecuteReader)
            MyDatabaseCon.Close()
            Return DTable
        Catch ex As SqlException
            MyDatabaseCon.Close()
            Throw New Exception
        End Try
    End Function

End Class