Ok,
Here is the code for MouseMoveEvent

Private Sub AxMappointControl1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxMapPoint._IMappointCtrlEvents_MouseMoveEvent) Handles AxMappointControl1.MouseMoveEvent


Dim oLoc As MapPoint.Location
Dim dblLat As Double, dblLon As Double
Dim strPos As String
Dim strPosp As String
Dim x As Integer
Dim Y As Integer

oLoc = oMap.XYToLocation(x, Y)

CalcPos(oMap, oLoc, dblLat, dblLon)

Statusbar.panel(1).text = dblLat & "/" & dblLon

End Sub