'sound
Private Declare Function sndPlaySound Lib "winmm.dll" _
        Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
'sound
 
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_BAD_NETPATH As Long = 53
Private Const ERROR_INVALID_PARAMETER As Long = 87
Private Const ERROR_NOT_SUPPORTED As Long = 50
Private Const ERROR_INVALID_NAME As Long = 123
Private Const NERR_BASE As Long = 2100
Private Const NERR_SUCCESS As Long = 0
Private Const NERR_NetworkError As Long = (NERR_BASE + 36)
Private Const NERR_NameNotFound As Long = (NERR_BASE + 173)
Private Const NERR_UseNotFound As Long = (NERR_BASE + 150)
 
Private Const MAX_COMPUTERNAME As Long = 15
Private Const VER_PLATFORM_WIN32s As Long = 0
Private Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Private Const VER_PLATFORM_WIN32_NT As Long = 2
 
Private Type OSVERSIONINFO
  OSVSize         As Long
  dwVerMajor      As Long
  dwVerMinor      As Long
  dwBuildNumber   As Long
  PlatformID      As Long
  szCSDVersion    As String * 128
End Type
 
'User-defined Type For passing
'the data To the Send Function
Private Type NetMessageData
   sServerName As String
   sSendTo As String
   sSendFrom As String
   sMessage As String
End Type
 
'NetMessageBufferSend parameters:
'servername:  Unicode String specifying the name of the
'             remote server On which the Function Is To
'             execute. If this parameter Is vbNullString,
'             the Local computer Is used.
'
'msgname:     Unicode String specifying the message Alias To
'             which the message buffer should be sent.
'
'fromname:    Unicode String specifying who the message Is from.
'             This parameter Is required To send interrupting messages
'             from the computer name. If this parameter Is NULL, the
'             message Is sent from the logged-On user.
'
'msgbuf:      Unicode String containing the message To send.
'
'msgbuflen:   value that contains the length, In bytes, of
'             the message text pointed To by the msgbuf parameter.
Private Declare Function NetMessageBufferSend Lib "netapi32" _
  (ByVal servername As String, _
   ByVal msgname As String, _
   ByVal fromname As String, _
   ByVal msgbuf As String, _
   ByRef msgbuflen As Long) As Long
 
Private Declare Function GetComputerName Lib "kernel32" _
   Alias "GetComputerNameA" _
  (ByVal lpBuffer As String, _
   nSize As Long) As Long
 
Private Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long
 
Private Sub cmdlöschen_Click()
 
cmdlöschen.Enabled = False
 
'sound
sndPlaySound App.Path & "\ROGER.WAV", 1
'sound ende
 
Text2.Text = ""
Text4.Text = ""
Label1.Caption = ""
Text4.SetFocus
Command1.Enabled = True
 
smile1.Visible = False
smile2.Visible = False
icon1.Visible = False
icon2.Visible = False
 
Text4.SetFocus
 
End Sub
 
Private Sub Combo1_Click()
'sound
sndPlaySound App.Path & "\start.WAV", 1
'sound ende
 
Text4.SetFocus
Text4.Locked = False
 
'Command1.Enabled = True
 
End Sub
 
Private Sub Combo1_DropDown()
'sound
sndPlaySound App.Path & "\boing.WAV", 1
'sound ende
End Sub
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
'sound
sndPlaySound App.Path & "\start.WAV", 1
'sound ende
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
'Allgemein
Command1.ToolTipText = "Nachricht an " & Combo1.Text & " senden"
'Ende Allgemein
 
End Sub
 
Private Sub Form_Load()
 
Command1.Enabled = False
cmdlöschen.Enabled = False
 
Text4.Locked = True
 
'sound
sndPlaySound App.Path & "\ding.WAV", 1
'sound ende
 
Label8.MousePointer = 99
Label8.MouseIcon = iconFINGER
 
Image1.MousePointer = 99
Image1.MouseIcon = iconFINGER
 
Command1.MousePointer = 99
Command1.MouseIcon = icon1
 
iconFINGER.Visible = False
smile1.Visible = False
smile2.Visible = False
icon1.Visible = False
icon2.Visible = False
 
With Combo1
    .AddItem "Florian"
    .AddItem "Daniel"
    .AddItem "Ewald"
    .AddItem "ALLE"
    .Text = "Bitte auswählen!"
End With