Public Class Form1
      Private Declare Function joyGetPos Lib "winmm.dll" (ByVal uJoyID As _
        Integer, ByRef pji As JOYINFO) As Integer
      Private Structure JOYINFO
        Dim X As Integer
        Dim Y As Integer
        Dim Z As Integer
        Dim Buttons As Integer
    End Structure
    Dim JInfo As JOYINFO
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        joyGetPos(0, JInfo)      'Joystick 0
        TextBox1.Text = "B :" + Str$(JInfo.Buttons)
        TextBox2.Text = "X :" + Str$(JInfo.X)
        TextBox3.Text = "Y :" + Str$(JInfo.Y)
    End Sub
End Class