Private Sub Form_Load()
    MsgBox "Hei Maailma!", vbCritical, "Visual Basic 6 -kurssi"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MsgBox "Kiitos kun kokeilit ohjelmaa, palataan astialle!", vbInformation, "Visual Basic 6 -kurssi"
End Sub