|
Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = "Il codice keyAscii è " & KeyAscii & Chr(13) & "Per scriverlo digitare Chr(" & KeyAscii & ")"
End Sub
Private Sub Form_Load()
MsgBox "Software Freeware realizzato da Giuseppe Cazzato", vbInformation, "Info"
Me.Caption = App.Title
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Software Freeware realizzato da Giuseppe Cazzato", vbInformation, "Info"
Unload Me
End Sub
|
|