[.Net DLL] WMLocationInfo - Get your location via CellID/GPS the easy way!

    'Setup variables needed throughout the source
    Dim lat As String, lon As String = ""
    Dim street As String, town As String, county As String = ""
    Dim cellid As String, lac As String, mcc As String, mnc As String = ""

    Private Sub GetCellId()
        'Retreive cell tower info from the DLL
        Dim CellTowerInfo As WMCellInfo.CellIDInfo.RILCELLTOWERINFO =   WMCellInfo.CellIDInfo.GetCellTowerInfo()

        'Asign each variable with its cell data
        cellid = CellTowerInfo.CellID.ToString()
        lac = CellTowerInfo.LAC.ToString()
        mcc = CellTowerInfo.MCC.ToString()
        mnc = CellTowerInfo.MNC.ToString()
    End Sub
    Private Sub GetCoord()
        'setup args with cellid data
        Dim args As String() = {mcc, mnc, lac, cellid}

        'call DLL to get coords and then split them.
        Dim latlng As String() = WMCellInfo.CoordinateInfo.GetLatLng(args).Split("|"c)

        'assign them to their variables.
        lat = latlng(0).ToString()
        lon = latlng(1).ToString()
    End Sub
    Private Sub GetLoc()
        'Call DLL to find location, with lat, lon parameters.
        WMCellInfo.LocationInfo.Getlocation(lat, lon)

        'Assign them into their variables.
        street = WMCellInfo.LocationInfo.locations(0)
        town = WMCellInfo.LocationInfo.locations(1)
        county = WMCellInfo.LocationInfo.locations(2)
    End Sub

   Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        GetCellId()
      
        Label1.Text = lac & vbCrLf & mcc & vbCrLf & mnc
    End Sub

Imports WMLocationInfo
Imports System
Imports System.IO
Imports System.Net
Imports System.Windows.Forms
Imports System.Text
Public Class Form1
    'Setup variables needed throughout the source
    Dim cellid As String, lac As String, mcc As String, mnc As String = Nothing

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Application.Exit()
    End Sub
    Public Sub GetCellID()
        'Retreive cell tower info from the DLL
        Dim CellTowerInfo As WMLocationInfo.CellIDInfo.RILCELLTOWERINFO = WMLocationInfo.CellIDInfo.GetCellTowerInfo()

        'Asign each variable with its cell data
        cellid = CellTowerInfo.CellID.ToString()
        lac = CellTowerInfo.LAC.ToString()
        mcc = CellTowerInfo.MCC.ToString()
        mnc = CellTowerInfo.MNC.ToString()

        'Show the data on the form with labels or other controls...
        Label1.Text = "CellID = " & cellid
        Label2.Text = "LAC = " & lac
        Label3.Text = "MCC = " & mcc
        Label4.Text = "MNC = " & mnc
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GetCellID()
    End Sub

End Class