Radar para ver seu poder de luta

Código:

' ::::::::::::::::::::::::::
    ' :: Player points packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "playerpoints" Then
        Player(MyIndex).POINTS = Val(Parse(1))
        frmMirage.lblPoints.Caption = Int(Val(Parse(1)) / 4) & " pontos de poder de luta"
        Exit Sub
    End If

Código:

If Parse(0) = "poderadd" Then
        frmMirage.lblPoderAdd.Caption = Parse(1)
        Exit Sub
    End If

Código:

' Change target
                    Player(Index).Target = i
                    Player(Index).TargetType = TARGET_TYPE_PLAYER
                    Call PlayerMsg(Index, "Seu alvo agora é " & GetPlayerName(i) & ".", Yellow)
                    Exit Sub
                End If

Código:

' Change target
                Player(Index).Target = i
                Player(Index).TargetType = TARGET_TYPE_PLAYER
                Call PlayerMsg(Index, "Seu alvo agora é " & GetPlayerName(i) & ".", Yellow)
                Call SendDataTo(Index, "poderadd" & SEP_CHAR & GetPlayerstr(i) + GetPlayerDEF(i) + GetPlayerSPEED(i) + GetPlayerMAGI(i) & SEP_CHAR & END_CHAR)
                Exit Sub
                End If

teria como fazer pra quando eu clicar sobre min aparecer a msg?

sim isso mesmo ^^ teria como?