• Home
 · 
• Graphics
 · 
• Super cool 3D graphics generator

Super cool 3D graphics generator

Super cool 3D graphics generator

Rate Super cool 3D graphics generator

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Val(Text1.Text) + Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub



Private Sub Command10_Click()
Image1.Height = Image1.Height + 200
Image1.Height = Image1.Height + 200
End Sub

Private Sub Command2_Click()
 Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
 Label3 = "The answer to your question is " & Text1.Text - Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Command3_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text * Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Command4_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
If Text2.Text = 0 Then
Label3 = "Division by zero can not be performed"
Else: Label3 = "The answer is " & Text1.Text / Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
End If
Beep
End Sub

Private Sub Command5_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text Mod Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Command6_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer to your question is " & Text1.Text \ Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Command7_Click()
Beep
End
End Sub




Private Sub Command8_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer is " & Text1.Text ^ Text2.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Command9_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Label4.Visible = False
Label3 = "The answer is " & Text1.Text * Text2.Text ^ Text4.Text
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Picture5.Visible = True
Picture6.Visible = True
Label4.Visible = True
Beep
End Sub

Private Sub Form_Load()
Form1.Height = Form1.Height
Form1.Width = Form1.Width
Form1.Top = Form1.Top
Form1.Left = Form1.Left

End Sub

Private Sub Label4_Click()
Beep
End Sub



Private Sub Picture1_Click()
Beep
End Sub

Private Sub Picture2_Click()
Beep
End Sub

Private Sub Picture3_Click()
Beep
End Sub

Private Sub Picture4_Click()
Beep
End Sub

Private Sub Picture5_Click()
Beep
End Sub

Private Sub Picture6_Click()
Beep
End Sub

Private Sub Timer1_Timer()
Label5 = Time
End Sub