Contract Renewal Application

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

Dim strStatus As String
Dim strAnswer As String

strStatus = "Discussion begins..."

If strStatus = "Salary Increment discussion.." Then
strAnswer = GetAnswer()
End If

Select Case strAnswer
Case "OK"
strStatus = "Sign Contract. Happy..."
Case "THINK"
strStatus = "Next day only answer. Cham..."
Case "NO"
strStatus = "Don't want renew. Find new job..."
End Select

End Sub

Private Function GetAnswer() As String
Dim dblIncrement As Double
GetAnswer = ""

If dblIncrement > = 1000 Then
GetAnswer = "OK"
Elseif dblIncrement > = 500 Then
GetAnswer = "THINK"
ElseIf dblIncrement < =499 Then
GetAnswer = "NO"
End If

End Function