Public Class Form1
Private Declare Sub BASSMOD_Free Lib "bassmod.dll" ()
Private Declare Function BASSMOD_Init Lib "bassmod.dll" (ByVal device As Integer, ByVal freq As Integer, ByVal flags As Integer) As Short
Private Declare Function BASSMOD_MusicLoad Lib "bassmod.dll" (ByVal mem As Short, ByVal pfile As String, ByVal offset As Integer, ByVal Length As Integer, ByVal flags As Integer) As Short
Private Declare Function BASSMOD_MusicPlay Lib "bassmod.dll" () As Short
Private Declare Function BASSMOD_MusicStop Lib "bassmod.dll" () As Short
Private Declare Function BASSMOD_MusicGetPosition Lib "bassmod.dll" () As Short
Private Declare Function BASSMOD_MusicIsActive Lib "bassmod.dll" () As Short
Private Declare Function BASSMOD_MusicSetPosition Lib "bassmod.dll" (ByVal Posição As Integer) As Integer
Private Declare Function BASSMOD_MusicGetLength Lib "bassmod.dll" (ByVal Tamanho As Integer) As Integer
Private Declare Function BASSMOD_MusicPause Lib "bassmod.dll" () As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BASSMOD_MusicStop()
BASSMOD_Free()
BASSMOD_Init(-1, 44100, 0)
BASSMOD_MusicLoad(0, "C:keygen.xm", 0, 0, 2 Or 512)
BASSMOD_MusicPlay()
End Sub
End Class