Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
strPassword = frmPassword.GetPassword("CICS wants your Password")
'=====================================
' frmPassword Module
'=========================
' Lable
' TextBox
' OK and Cancel Button control array
Option Explicit
Public Function GetPassword(Optional ByVal strPrompt As String = "") As String
lblPassword = strPrompt
Me.Show 1 ' Modal form, wait for Hide
GetPassword = txtPassword
Unload Me
End Function
Private Sub cmdOKCancel_Click(Index As Integer)
If cmdOKCancel(1).Value Then
txtPassword = ""
End If
Me.Hide ' Release modal
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmPassword = Nothing
End Sub