Option Explicit
Private Ans As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowLbl As Long) As Long
Const SW_SHOW = 5

Private Sub cmdA_Click()
If txtQ.Text = "" Then
lblBlank.Visible = True
lblAnswer.Visible = False
lblAshow.Visible = False
Else
lblBlank.Visible = False
lblAnswer.Visible = True
lblAshow.Visible = True
txtQ.Text = ""
End If

lblAshow.Caption = "RESPONSE"
Randomize
Ans = Int(Rnd * 21)
Select Case Ans
Case Is = 0
lblAnswer.Caption = "You're wasting my time, and I'll do the same to you!"
Case Is = 1
lblAnswer.Caption = "This is not important now."
Case Is = 2
lblAnswer.Caption = "I notice great anxiety in you, and that produces some apathy in me. Change your attitude and I'll answer."
Case Is = 3
lblAnswer.Caption = "I do not know :S :("
Case Is = 4
lblAnswer.Caption = "I'll answer this question later okay? :D"
Case Is = 5
lblAnswer.Caption = "The theosophical semantic of this question is not valid!"
Case Is = 6
lblAnswer.Caption = "Hmmm, are you trying to make me confused? DON'T BE too smart :P"
Case Is = 7
lblAnswer.Caption = "I only answer to the ones that deeply believe in me."
Case Is = 8
lblAnswer.Caption = "Hey I'm tired now, I'll surely answer to questions later."
Case Is = 9
lblAnswer.Caption = "Don't suspect me, if you trust, I will answer well :)"
Case Is = 10
lblAnswer.Caption = "This is not very interesting..."
Case Is = 11
lblAnswer.Caption = "Why don't you let someone else to ask questions? :P Maybe I'll answer."
Case Is = 12
lblAnswer.Caption = "I will not tell you that haha ;)"
Case Is = 13
lblAnswer.Caption = "I'll answer you when, and if you stop proving me LOL"
Case Is = 14
lblAnswer.Caption = "I don't feel like answering this, please skip to the next question."
Case Is = 15
lblAnswer.Caption = "I'll tell you when you're ready to listen to me, are u? :D"
Case Is = 16
lblAnswer.Caption = "Dude, dont you think dark thoughts interface with that question!! Hmm.."
Case Is = 17
lblAnswer.Caption = "Heya try to be more specific, my friend."
Case Is = 18
lblAnswer.Caption = "According to me, that's personal, you don't have to know :D"
Case Is = 19
lblAnswer.Caption = "Nah!!! IDEA: Lets talk something that interests both of us ehh.."
Case Is = 20
lblAnswer.Caption = "I prefer to be silent now. :["
End Select
End Sub

Private Sub cmdQuit_Click()
MsgBox "Thank You! for using this app.", vbInformation, "Quitting HajaraAnswers"
End
End Sub

Private Sub Form_Load()
lblName.Caption = Form1.strname
End Sub
Public Sub openwebsite(URL As String)
Dim ret&
ret& = ShellExecute(Me.hWnd, "Open", URL, vbNullString, vbNullString, SW_SHOW)
End Sub

Private Sub Image3_Click()
cmdQuit_Click
End Sub

Private Sub lblUs2_Click()
openwebsite "http://www.tutebox.com/about-us"
End Sub

Private Sub txtQ_click()
txtQ.Text = ""
End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
End Sub