Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
Dim tNull As Boolean = False
If txtLM.Text="" Then
fx.Msgbox(Main.MainForm,tb,"Warning!")
txtLM.RequestFocus
tNull = True
Return tNull
End If
End Sub
Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
Dim tNull As Boolean = False
If txtLM.Text="" Then
fx.Msgbox(Main.MainForm,tb,"Warning!")
txtLM.RequestFocus
tNull = True
Return tNull
End If
Return tNull
End Sub
Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
Dim tNull As Boolean = False
If txtLM.Text="" Then
fx.Msgbox(Main.MainForm,tb,"Warning!")
txtLM.RequestFocus
tNull = True
Return tNull
End If
Return tNull
End Sub
Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
If txtLM.Text="" Then
fx.Msgbox(Main.MainForm,tb,"Warning!")
txtLM.RequestFocus
Return True
Else
Return False
End If
End Sub