Private Sub Cmd_An_Click(index As Integer)
Call SetPort(index, AnAus)
WaitForSingleObject -1, 10000                          'Verzögerung bis 
' Festplatten gestartet sind
Call HD_anmelden(HD)  
End sub
 
Public Sub SetPort(DOut As Integer, AnAus As Integer)
Befehl = "setport" & " " & CStr(DOut + 1) & "." & CStr(AnAus)
Befehl = Befehl & vbCrLf
MsgBox ("setport")
Winsock.SendData Befehl
MsgBox ("gesendet")
end sub
 
Public Sub HD_anmelden
abcd
end sub