主题：VB.net代码如何转换到FT里使用

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero) = False Then

            MessageBox.Show("初始化失败" & Bass.BASS_ErrorGetCode.ToString)

        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        Timer1.Stop()

        Bass.BASS_ChannelStop(stream) '停止播放

        Bass.BASS_StreamFree(stream) '释放音频流

        Bass.BASS_Stop() '停止所有输出

        Bass.BASS_Free() '释放所有的资源

    End Sub