D. Edward Mitchell 16:00, 14 April 2020 (UTC) Hello World!    groupKOS Developer Share —usually UNDER CONSTRUCTION

VB6 source hello world

From groupKOS Developer Share
Jump to navigation Jump to search



Private Sub Form_Load()

    Me.AutoRedraw = True
    Me.Print "Hello world!"
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Select Case MsgBox("Do you acknowledge that I said, ""Hello!""", _
                       vbYesNo, _
                       "Curios programs need to know...")
        Case vbYes
            MsgBox "Thank you world.  Goodbye :("
        Case vbNo
            Me.Print "Fine.  Be that way."
            Cancel = 1
    End Select
    
End Sub