Code:
Private Sub Command1_Click()
      MsgBox "VB6 sucks"
End Sub