Imports MPGH.NET
Public Class King_Aldrin
Private Sub King_Aldrin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thanks = mpgh.user.kingaldrin
Dim help As Boolean
If mpgh.user.other = Ask.question Then
help = True
Else
help = False
End If
If help = True Then
If mpgh.user.kingaldrin.answers > 0 Then
MsgBox("Did I helped you? then press the Thanks button!", MsgBoxStyle.Information)
Else
MsgBox("I'm sorry! I think I can't answer your question")
End If
Else
MsgBox("You didn't ask a question, Please ask a new question now by posting a new thread or PM'ing me!")
End If
End Sub
End Class