Imports System.Drawing
Public Class Form1
Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean
Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean)
Dim Text1 As String = Nothing
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Text1 As String = Nothing
Text1 = "[Mpgh.net]Ownz you!"
GPSL_SetTextLineData(1064, 5, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
GPSL_ShowText(True)
End Sub
End Class