[APORTE] Radar ^^

Primero, van a Módulos y despues a Mod_Declaraciones y debajo de Option Explicit ponen:

Código:

Public movSpeed As Single

Public SelM As Integer

Public TipoSel As String

Public Type tMapa
    X As Single
    Y As Single
    color As Long
    Activo As Boolean
End Type

Public CMAP(10000) As tMapa

Public Type structFichado
    X As Byte
    Y As Byte
    Name As Byte
End Type

Public MapMapa As Integer

Luego, en el frmmain crean un PictureBox llamado PicRadar con los siguientes atributos o propiedades:
-Scalemode 3 - Pixel
-Scale height 100
-Scale width 100
-Height 100
-Width 100

Dentro del PictureBox, agregan un Shape con los siguientes atributos o propiedades:
-Height 90
-Width 90
-Top 5
-Left 5
-Shape 0 - Rectangle

Y crean un timer en el FrmMain con intervalo 50 y llamado tmrRadar, dentro de este ponen:

Código:

Dim i As Integer
Dim Contador As Integer

If MapMapa = UserMap Then
    If SelM = 0 Then SelM = UserCharIndex
    frmMain.picRadar.Cls
    For i = 1 To 10000
        If charlist(i).Active = 1 Then
            If charlist(i).Nombre = "" Then CMAP(i).color = vbGreen
            If charlist(i).Nombre <> "" Then CMAP(i).color = vbCyan
            If charlist(i).Nombre <> "" And charlist(i).Criminal = 2 Then CMAP(i).color = vbBlue
            If charlist(i).Nombre <> "" And charlist(i).Criminal = 3 Then CMAP(i).color = vbRed
            If charlist(i).Nombre <> "" And charlist(i).Criminal = 4 Then CMAP(i).color = vbWhite
            If charlist(i).Nombre <> "" And charlist(i).Criminal = 5 Then CMAP(i).color = vbWhite
            
            CMAP(i).X = charlist(i).Pos.X
            CMAP(i).Y = charlist(i).Pos.Y
            CMAP(i).Activo = True
            
            frmMain.picRadar.ForeColor = CMAP(i).color
            frmMain.picRadar.Line (0 + CMAP(i).X, 0 + CMAP(i).Y)-(3 + CMAP(i).X, 0 + CMAP(i).Y)
            frmMain.picRadar.Line (0 + CMAP(i).X, 1 + CMAP(i).Y)-(3 + CMAP(i).X, 1 + CMAP(i).Y)
            frmMain.picRadar.Line (0 + CMAP(i).X, 2 + CMAP(i).Y)-(3 + CMAP(i).X, 2 + CMAP(i).Y)
            
            If i = UserCharIndex Then
                frmMain.picRadar.ForeColor = vbWhite
                frmMain.picRadar.Line (-2 + CMAP(i).X - 6, 0 + CMAP(i).Y - 6)-(CMAP(i).X + 10, CMAP(i).Y - 6)
                frmMain.picRadar.Line (-2 + CMAP(i).X - 6, 0 + CMAP(i).Y + 9)-(CMAP(i).X + 10, CMAP(i).Y + 9)
                frmMain.picRadar.Line (-2 + CMAP(i).X - 6, 0 + CMAP(i).Y - 6)-(CMAP(i).X - 8, CMAP(i).Y + 9)
                frmMain.picRadar.Line (-2 + CMAP(i).X + 12, 0 + CMAP(i).Y - 6)-(CMAP(i).X + 10, CMAP(i).Y + 9)
            End If
        End If
    Next i
Else
    CMAP(i).Activo = False
    For i = 1 To 10000
        If charlist(i).Active = 1 Then
            CMAP(i).X = charlist(i).Pos.X
            CMAP(i).Y = charlist(i).Pos.Y
            CMAP(i).Activo = True
        End If
    Next i
    MapMapa = UserMap
End If

End Sub


Y quedaría algo así como yo lo ordeno...