Public Sub Recieve_Message(ByVal MessageString as String) Handles _
  MeldungRecieved
 
'... hier Messagebehandung
 
if MessageString = "Zeige Punkt" then
zeigePunktStart(position)
end if
 
'... hier Messagebehandung
 
End Sub
 
Public Sub zeigePunktStart(ByVal pos as Point)
Dim t as Thread = new Thread(new ParameterizedThreadStart(AddressOf _
  zeigePunktWork)
t.SetApartmentState(ApartmentState.STA)
t.Start(CObj(pos)
End sub
 
PrivateSub zeigePunktWork(ByVal obj as Object)
Try
My.Forms.frmGISViewer.mapView.zeigePunkt(CType(obj, Point))
catch ex as exception
End Try