Imports System
imports system.windows.forms
Imports GTA

Public Class Tests
    Inherits Script

    Public Sub New()
        me.interval = 100
    End Sub

    Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles mybase.PerFrameDrawing
    ' happens everyframe, used for draw textures, show msgs, etc, dont use wait() or loops here, can freeze the game
    End Sub

    Private Sub msg(ByVal smsg As String, ByVal duracao As int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", smsg, duracao, 1)
    End Sub

    Private Function random(ByVal min As int32, ByVal max As int32)
        Dim rnd As random = New random(System.DateTime.Now.Millisecond)
        random = rnd.next(min, max)
    End Function

    Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
    ' use to nterpret console commands
    End Sub

    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        ' happens when you press a key
    End Sub
    shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
        ' happens when you release a key
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
    ' this part happens each 100 ms
    End Sub
End Class