Option Explicit On
Dim sngAngle As Single
Dim sngH As Single
Dim sngX As Single
Dim sngY As Single
Dim intAttempts As Integer

Private Sub cmdGo_Click()
    If txtDistance = "" Then
        intAttempts = intAttempts
        MsgBox("Please enter a distance")
    Else
        intAttempts = intAttempts + 1
    End If
    If txtBearing = "" Then
        intAttempts = 0
        MsgBox("Please enter a bearing!")
    End If
    sngAngle = Val(txtBearing)
    sngAngle = sngAngle * 3.1415 / 180
    sngH = Val(txtDistance)
    sngX = sngH * Sin(sngAngle) / 10
    sngY = sngH * Cos(sngAngle) / 10
    imgHecilopter.Left = imgHecilopter.Left + sngH * Sin(sngAngle)
    imgHecilopter.Top = imgHecilopter.Top - sngH * Cos(sngAngle)
    lblAttempts = intAttempts
    If txtFuel = "0" Then
        MsgBox("Mission Failed")
        Timer1.Enabled = False
    End If
End Sub

Private Sub Exit_Click()
    If Confirm("Are you sure you want to exit?", "Exit") = vbYes Then
        End
    End If
End Sub

Private Sub Form_Load()
    imgInjured.Left = Int(Rnd * Frame4.Width)
    imgInjured.Top = Int(Rnd * Frame4.Height)
    Randomize()
End Sub

Private Sub NewGame_Click()
    If Confirm("Are you sure you want to start a new game?", "New Game") = vbYes Then
        Call Form_Load()
    End If
End Sub

Private Sub About_Click()
    frmAbout.Show()
End Sub

Private Sub Back_Click()
    If Confirm("Are you sure you want to exit?", "Exit") = vbYes Then
        frmMain.Show()
    End If
    Unload(Me)
End Sub

Private Function Confirm(ByVal strConfirm As String, ByVal strTitle As String) As Integer
    Confirm = MsgBox(strConfirm, vbYesNo, strTitle)
End Function

Private Sub Timer1_Timer()
    txtFuel = txtFuel - 1
End Sub

    Dim sngAngle As Single
    Dim sngH As Single
    Dim sngX As Single
    Dim sngY As Single
    Dim intAttempts As Integer

    Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles cmdGo.Click
        If txtDistance = "" Then
            intAttempts = intAttempts
            MsgBox("Please enter a distance")
        Else
            intAttempts = intAttempts + 1
        End If
        If txtBearing = "" Then
            intAttempts = 0
            MsgBox("Please enter a bearing!")
        End If
        sngAngle = Val(txtBearing)
        sngAngle = sngAngle * 3.1415 / 180
        sngH = Val(txtDistance)
        sngX = sngH * Math.Sin(sngAngle) / 10
        sngY = sngH * Math.Cos(sngAngle) / 10
        imgHecilopter.Left = imgHecilopter.Left + sngH * Math.Sin(sngAngle)
        imgHecilopter.Top = imgHecilopter.Top - sngH * Math.Cos(sngAngle)
        lblAttempts = intAttempts
        If txtFuel = "0" Then
            MsgBox("Mission Failed")
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Exit_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles [Exit].Click
        If Confirm("Are you sure you want to exit?", "Exit") = vbYes Then
            End
        End If
    End Sub

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
        imgInjured.Left = Int(Rnd() * Frame4.Width)
        imgInjured.Top = Int(Rnd() * Frame4.Height)
        Randomize()
    End Sub

    Private Sub NewGame_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles NewGame.Click
        If Confirm("Are you sure you want to start a new game?", "New Game") = vbYes Then
            Form_Load(Me, New EventArgs())
        End If
    End Sub

    Private Sub About_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles About.Click
        frmAbout.Show()
    End Sub

    Private Sub Back_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles Back.Click
        If Confirm("Are you sure you want to exit?", "Exit") = vbYes Then
            frmMain.Show()
        End If
        Me.Close()
    End Sub

    Private Function Confirm(ByVal strConfirm As String, ByVal strTitle As String) As Integer
        Confirm = MsgBox(strConfirm, vbYesNo, strTitle)
    End Function

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As EventArgs) Handles Timer1.Tick
        txtFuel -= 1
    End Sub