Code:
Function (ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
On Error GoTo Makro1_Err
' lol
MsgBox('Ha Verarscht, Achso viel Spaß noch!', MsgBoxStyle.Information, 'Lies Mich!')
' http://www.mozzila.de/
DoCmd.Restore()
Beep()
DoCmd.Hourglass(True)
DoCmd.SetWarnings(True)
Beep()
MsgBox('Viel Spaß! ^^', MsgBoxStyle.OKOnly, 'Unn looos!')
DoCmd.Echo(True, "lol")
MsgBox("tt", vbCritical, "tt")
Beep()
Makro1_Exit:
Exit Function
Makro1_Err:
MsgBox(Error$)
Resume Makro1_Exit
End Function
Comment