Dim sClient as EmergencyData_WEBVERWEIS.EmergencyService
sClient = New EmergencyData_WEBVERWEIS.EmergencyService
 
Try
Dim r As Array
r = sClient.GetEmergencyDatas
 
Dim i As Integer
For i = 0 to UBound(r)
Me.ListBox1.Items.Add(r(i))
Next
 
Catch ex as Exception
 
End Try