Hello World - First Activity
3:39 AM
| Posted by
Unknown
|
SCREENSHOT
CODE
Private Sub cmdClear_Click()
txtShow.Text = ""
End Sub
Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to close the application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
End
Else
cmdShow.SetFocus
End If
End Sub
Private Sub cmdShow_Click()
txtShow.Text = "Hello World!"
End Sub
Download Full Project Here: Hello World Program
CODE
Private Sub cmdClear_Click()
txtShow.Text = ""
End Sub
Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to close the application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
End
Else
cmdShow.SetFocus
End If
End Sub
Private Sub cmdShow_Click()
txtShow.Text = "Hello World!"
End Sub
Download Full Project Here: Hello World Program
Labels:VB 6.0 Sample Program