Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
TextBox2.Text = Val(TextBox1.Text) + Val(TextBox4.Text)
Else
If RadioButton2.Checked Then
TextBox2.Text = Val(TextBox1.Text) - Val(TextBox4.Text)
Else
If RadioButton3.Checked Then
TextBox2.Text = Val(TextBox1.Text) * Val(TextBox4.Text)
Else
If RadioButton4.Checked Then
If TextBox4.Text = 0 Then
TextBox2.Text = Val(TextBox1.Text) / Val(TextBox4.Text)
Else
TextBox2.Text = "Error"
End If
End If
End If
End If
End If
End Sub
Private Sub TrackBar2_Scroll_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Dim x = 0
x = TrackBar2.Value
TextBox4.Text = Val(x)
End Sub
Private Sub TrackBar1_Scroll_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim y = 0
y = TrackBar1.Value
TextBox1.Text = Val(y)
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class