How to nest multiple IF statements in Visual Basic 6? - vb6

Question

How can I use an if in another if in Visual Basic 6?
For example, in C++ I can start my statements with { and finish them with }, and I can use another if in the first statement.
For example:
if m>3
{ .....
if a>5
{
......
}
else {....}
} else ........
… but in Visual Basic there is no { } or something similar it
i want to writ a program that recive a time from user and Reduce 4:30 from it ! for example when user runs it , it asks : what time is it in Tehran ? and user enter time (for example 16:30) and then program Reduces 4 hour and 30 minutes from it ! and print : GMT time is : 12:00 ! i'll updat my post and put my code ! please read it !
Option Explicit
Private Sub Command1_Click()
Cls
Dim h As Integer, m As Integer, hm As Integer, mm As Integer, t As Integer
Dim fh As String, fm As String, fhm As String, fmm As String
t = InputBox("Enter time")
h = t \ 100
m = t Mod 100
Select Case h
Case 0 To 24
If m < 60 Then
If m >= 30 Then
hm = h - 4
mm = m - 30
If h < 10 Then fh = Format(h, String(2, "0")) Else fh = h
If m < 10 Then fm = Format(m, String(2, "0")) Else fm = m
If hm < 10 Then fhm = Format(hm, String(2, "0")) Else fhm = hm
If mm < 10 Then fmm = Format(mm, String(2, "0")) Else fmm = mm
Print
Print " Tehran Time is : "; fh; ":"; fm
Print
Print " GMT Time is : "; fhm; ":";
Else
hm = h - 5
mm = m + 30
If h < 10 Then fh = Format(h, String(2, "0")) Else fh = h
If m < 10 Then fm = Format(m, String(2, "0")) Else fm = m
If hm < 10 Then fhm = Format(hm, String(2, "0")) Else fhm = hm
If mm < 10 Then fmm = Format(mm, String(2, "0")) Else fmm = mm
Print
Print " Tehran Time is : "; fh; ":"; fm
Print
Print " GMT Time is : "; fhm; ":"; fmm
End If
End If
Case Else
Beep
Print
Print " Time is wrong !!! Try again "
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub

Answer 1

If clauses in VB are ended with "End If" (case insensitive). No brackets whatsoever.
You may nest as many if clauses as you want, as long as you close them:
If ... Then
*Do stuff*
If ... Then
*Do more stuff*
End If
End If

Answer 2

Single-line If statements can also be nested:
If (a) Then [a_stuff] : If (b) Then [a_and_b_stuff] Else [a_and_notb_stuff] Else [nota_stuff]
Note that no more [a_stuff] can appear after [a_and_notb_stuff], since there's no way to tell where b's Else-statements end, so nothing can appear in a clause after a nested If statement.
Any of the *_stuff parts can be empty. But you may have some difficulty with an empty [a_and_notb_stuff], since the VB6 IDE seems to be a bit temperamental here, and will try inserting an invalid third 'Else' statement there. To work around this you can put a ':' in place of [a_and_notb_stuff]. The colon will be removed by the IDE, but it won't then insert another Else statement.
Addendum: I should point out that this whole post should be treated as information, and not as a recommendation. Nesting single-line If statements like this makes for very unreadable and bug-prone code.