Toribash
Original Post
How to translate VB6 to VB3 script?
Hello. I have pretty big problem - i'm totally newb in Visual Basic. My task is to make program that will randomize number from 0 to 30 and from 0 to 38, like roulette.

Buuut.. There's a problem. I made it in Visual Basic version 6.. and i need to do it in Visual Basic version 3.. Best thing is i don't know how to even start scripting in VB3.. So i'm pretty fuckd up.

I have to send this Roulette in about 24h, so.. Is there anyone that could help me?

Here's the code i found in Form1.vb
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intResult As Integer
        Randomize()
        intResult = Int((30 * Rnd()))
        MsgBox("Wylosowany numer: " & intResult)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Prosty program generujący liczbę w zakresie od 0 do 38. Stworzony z myślą o łatwiejszym wybieraniu numerów nieszczęśników do odpowiedzi ;)")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim intResult As Integer
        Randomize()
        intResult = Int((38 * Rnd()))
        MsgBox("Wylosowany numer: " & intResult)
    End Sub
End Class
As You can see, it's done, but. Yeah. But it should be in Vb3..

Lookin forward for Your answers. If anyone would make it in Vb3, ill love him 4life.