Hejsan, har ett stort problem här.. (detta fick mej nyss att tappa två timmars arbete pga av dålig sparnings-teknik av mej..)

Håller på med ett rpg i Visual Basic 6.0

I en "Battle" så anropar jag en funktion som i sin tur ska slumpa fram fienden.

För det första så kan jag inte skriva:
"Call newmonster()"
utan det blir automatiskt:
"Call newmonster"

När jag försöker starta funktionen newmonster() så kraschar hela skiten. Får köra en ctrl+alt+del och förlora all osparad information.

Såhär ser funktionen ut:

Private Sub newmonster()

While antal < 4
Randomize
num = (Rnd * 3)

If num = 0 Then
monster = "Rat"
monhp = Val(20)
End If

If num = 1 Then
monster = "Snake"
monhp = Val(15)
End If

If num = 2 Then
monster = "Bee"
monhp = Val(10)
End If

lblMonster = monster
lblMonhealth = monhp

Wend

End Sub




och den ska anropas när formen laddas:

Private Sub Form_Load()

Call newmonster
antal = 0

End Sub



Hoppas verkligen någon kan hjälpa mej med det här..
Tack på förhand

Vad försöker du göra? Vill du skapa fyra djur eller ett?

Private Sub newmonster()

For antal = 1 To 4
    Randomize
    num = (Rnd * 3)

    Select Case num 
    Case 0
        monster = "Rat"
        monhp = 20
    Case 1
        monster = "Snake"
        monhp = 15
    Case 2
        monster = "Bee"
        monhp = 10
    End select

    lblMonster = monster
    lblMonhealth = monhp

Next

End Sub