Public Class Slip17
Dim ans As String
Private Sub Slip17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("BCA")
ComboBox1.Items.Add("BBA")
ComboBox1.Items.Add("BSC")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label10.Text = Label2.Text
Label11.Text = Label3.Text
Label12.Text = Label4.Text
Label13.Text = Label5.Text
Label14.Text = Label6.Text
Label15.Text = Label7.Text
Label16.Text = Label8.Text
Label17.Text = Label9.Text
Label18.Text = TextBox1.Text
Label19.Text = TextBox2.Text
Label20.Text = TextBox3.Text
Label21.Text = ComboBox1.Text
If RadioButton1.Checked = True Then
ans = RadioButton1.Text
Else
ans = RadioButton2.Text
End If
Label22.Text = ans
Label23.Text = DateTimePicker1.Value
Label24.Text = TextBox4.Text
Label25.Text = TextBox5.Text
End Sub
End Class