'Required to tell the script to make a random number
Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Private Sub Command1_Click()

Dim random_number As Integer
Randomize 'Declair Random
random_number = Rand(1, 6) 'Generates random number from (Lowest, Highest)

Select Case random_number 'Sets the

Label1.Caption = Check1.Caption

Private sub cmdDisplayMessage_click()
MSGBOX = project1.form1.hidden_txt.text
End Sub

Private Sub FormName_activate()
Dim Name As String
Name = InputBox("What is your name?")
Print Name
End Sub

Private Sub cmdEnter_Click()
    Dim intFileNumber As Integer
    Dim strFileName As String
    Dim strName As String * 30
    Dim strAddress As String * 35
    Dim strCity As String * 25
    Dim strState As String * 2
    Dim strZip As String * 5
    Dim strAccount As String *