Sub Alsaqr_Eslam()
Dim E As Long
Let E = 99999
MsgBox E
End Sub
Public Property Get StName() As String
StName = "Eslam Abdullah"
End Property
Sub Alsaqr_Eslam2()
Dim St As New Student
MsgBox St.StName
End Sub
Private AStName As String
Public StAge As Double
Public Property Get StName() As String
StName = AStName
End Property
Public Property Let StName(ByVal name As String)
If Len(name) < 2 Then
AStName = "The Name assigned is too short"
Else
AStName = name
End If
End Property
Private AStName As String
Public StAge As Double
Public Property Get StName() As String
StName = AStName
End Property
Public Property Let StName(ByVal name As String)
If Len(name) < 2 Then
AStName = "The Name assigned is too short"
Else
AStName = name
End If
End Property
Sub Alsaqr_Eslam()
Dim St As New Student
St.StName = "E"
MsgBox St.StName
End Sub