Private Sub Form_Load()
List1.AddItem "Server1"
List1.AddItem "Server2"
List1.AddItem "Server3"
List1.AddItem "Server4"
List1.AddItem "Server5"
List1.AddItem "Server6"
End Sub
Private Sub List1_Click()
Dim Aussuchen
Dim Server1
Dim Server2
Dim Server3
Dim Server4
Dim Server5
Dim Server6
Server1 = "127.0.0.1"
Server2 = "127.0.0.2"
Server3 = "127.0.0.3"
Server4 = "127.0.0.4"
Server5 = "127.0.0.5"
Server6 = "127.0.0.6"
If Server1 Then
Text1.Text = Server1
End If
If Server2 Then
Text1.Text = Server2
End If
If Server3 Then
Text1.Text = Server3
End If
If Server4 Then
Text1.Text = Server4
End If
If Server5 Then
Text1.Text = Server5
End If
If Server6 Then
Text1.Text = Server6
End If
End Sub