Android Question Error Help? Java Exception at line 0. code included(SOLVED)

    #FullScreen: True
    #IncludeTitle: False
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private btnAdd10s As Button
    Private btnAdd1s As Button
    Private btnAdd2s As Button
    Private btnAdd3s As Button
    Private btnAdd4s As Button
    Private btnAdd5s As Button
    Private btnAdd6s As Button
    Private btnAdd7s As Button
    Private btnAdd8s As Button
    Private btnAdd9s As Button
    Private btnAddMix As Button
    Private btnBack As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Practice_Addition")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btnBack_Click
    Activity.Finish
    StartActivity(Practice_Menu)
End Sub

Sub btnAddMix_Click
  
End Sub

Sub btnAdd9s_Click
  
End Sub

Sub btnAdd8s_Click
  
End Sub

Sub btnAdd7s_Click
  
End Sub

Sub btnAdd6s_Click
  
End Sub

Sub btnAdd5s_Click
  
End Sub

Sub btnAdd4s_Click
  
End Sub

Sub btnAdd3s_Click
  
End Sub

Sub btnAdd2s_Click
  
End Sub

Sub btnAdd1s_Click
    Activity.Finish
    StartActivity(Practice_Add1s)
End Sub

Sub btnAdd10s_Click

   End Sub

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: False
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private QuestionNumber As Int
    Private WrongAnswers As Int
    Private CorrectAnswers As Int
 

    Private imgLine As ImageView
    Private lblAddNumber1 As Label
    Private lblAddNumber2 As Label
    Private lblPlusSign As Label
    Private btnAnswer1 As Button
    Private btnAnswer2 As Button
    Private btnAnswer3 As Button
    Private btnAnswer4 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Practice_Add1s")

    Main.MP.Stop
    Question1
     
 
 
 
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Question1
    QuestionNumber = 1
    Main.MP.Load(File.DirAssets, "1+1.wav")
    Main.MP.Play
    lblAddNumber1.Text = "1"
    lblAddNumber2.Text = "1"
 
    Dim Answer1 As Int
    Dim Answer2 As Int
    Dim Answer3 As Int
    Dim Answer4 As Int
 
    Answer1 = 2
 
    Answer2 = Rnd(1, 11)
    If Answer2 = 2 Then
        Do While Answer2 = 2
            Answer2 = Rnd(1, 11)
        Loop
    End If
 
    Answer3 = Rnd(1, 11)
    If Answer3 = 2 Or Answer3 = Answer2 Then
        Do While Answer3 = 2 Or Answer2
            Answer3 = Rnd(1, 11)
        Loop
    End If
 
    Answer4 = Rnd(1, 11)
    If Answer4 = 2 Or Answer4 = Answer2 Or Answer4 = Answer3 Then
        Do While Answer3 = 2 Or Answer2 Or Answer3
            Answer3 = Rnd(1, 11)
        Loop
    End If
 
    Dim RandomAnswers As Int
 
    RandomAnswers = Rnd(1, 5)
 
    Select RandomAnswers
        Case 1
            btnAnswer1.Text = Answer1
            btnAnswer2.Text = Answer2
            btnAnswer3.Text = Answer3
            btnAnswer4.Text = Answer4
        Case 2
            btnAnswer1.Text = Answer2
            btnAnswer2.Text = Answer3
            btnAnswer3.Text = Answer4
            btnAnswer4.Text = Answer1
        Case 3
            btnAnswer1.Text = Answer3
            btnAnswer2.Text = Answer4
            btnAnswer3.Text = Answer1
            btnAnswer4.Text = Answer2
        Case 4
            btnAnswer1.Text = Answer4
            btnAnswer2.Text = Answer1
            btnAnswer3.Text = Answer2
            btnAnswer4.Text = Answer3
    End Select
 
End Sub


Sub btnAnswer4_Click
    Select QuestionNumber
        Case 1
     
    End Select
End Sub

Sub btnAnswer3_Click
    Select QuestionNumber
        Case 1
     
    End Select
End Sub

Sub btnAnswer2_Click
    Select QuestionNumber
        Case 1
         
    End Select
End Sub

Sub btnAnswer1_Click
    Select QuestionNumber
        Case 1
     
    End Select
End Sub