Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

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