Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Change caption
Sub ChangeCaption(frmAny As Form)
   If IsNull(frmAny.Caption) Then
      frmAny.Caption = "Form For - " & CurrentUser
   Else
      frmAny.Caption = frmAny.Caption & " - " & CurrentUser
   End If
End Sub