[أبو عمر]

PHP كود :

Option Explicit
Private Sub Form_Load()
    Dim MyTx As String
    MyTx = GetSetting("VB", "4arab", "Abu_Omar")
    If MyTx = "" Then
       MsgBox "مرحبا بك في برنامجي لاول مرة", , "ترحيب "
    End If
      MyTx = Val(MyTx) + 1
    SaveSetting "VB", "4arab", "Abu_Omar", MyTx
End Sub