Private Sub Combo1_Click() If Combo1.Text = "DOSA" Then Text5.Text = 45 ElseIf Combo1.Text = "SAMBHAR-WADA" Then Text5.Text = 50 Else: Combo1.Text = "SAMOSA" Text5.Text = 20 End If End Sub Private Sub Command1_Click() Text4.Text = Val(Text3.Text) + Val(Text7.Text) Text8.Text = Val(Text4.Text) * 0.05 Text2.Text = Val(Text4.Text) + Val(Text8.Text) End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() List1.AddItem "DELUX" List1.AddItem "AC" List1.AddItem "AC SUIT" Combo1.AddItem "DOSA" Combo1.AddItem "SAMBHAR-WADA" Combo1.AddItem "SAMOSA" End Sub Private Sub List1_Click() If List1.Text = "DELUX" Then Text3.Text = 500 ElseIf List1.Text = "AC" Then Text3.Text = 1000 ElseIf List1.Text = "AC SUIT" Then Text3.Text = 2000 Else: MsgBox "Please select room type" End If End Sub Private Sub Text7_GotFocus() Text7.Text = Val(Text5.Text) * Val(Text6.Text) End Sub
