Visual Programming Task

Make a form to like this more or less

fill in the program syntax as below:

Private Sub CKeluarForm_Click()
Form1.Hide
End Sub
Private Sub CKeluarProgram_Click()
End
End Sub
Private Sub CProsesBesar_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text1.Text) > Val(Text3.Text) Then
    Tangkabesar.Text = Text1.Text
    ElseIf Val(Text2.Text) > Val(Text1.Text) And Val(Text2.Text) > Val(Text3.Text) Then
        Tangkabesar.Text = Text2.Text
        ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
            Tangkabesar.Text = Text3.Text
End If
End Sub
Private Sub CProsesKecil_Click()
If Val(Text1.Text) < Val(Text2.Text) And Val(Text1.Text) < Val(Text3.Text) Then
    Tangkakecil.Text = Text1.Text
    ElseIf Val(Text2.Text) < Val(Text1.Text) And Val(Text2.Text) < Val(Text3.Text) Then
        Tangkakecil.Text = Text2.Text
        ElseIf Val(Text3.Text) < Val(Text2.Text) And Val(Text3.Text) < Val(Text1.Text) Then
            Tangkakecil.Text = Text3.Text
End If
End Sub
Private Sub CProsesUrut_Click()
If Val(Text1.Text) > Val(Text2.Text) And Val(Text2.Text) > Val(Text3.Text) Then
    tangkaurut.Text = "Angka Terurut Turun"
    ElseIf Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) > Val(Text1.Text) Then
    tangkaurut.Text = "Angka Terurut Naik"
        ElseIf Val(Text2.Text) > Val(Text1.Text) Or Val(Text2.Text) < Val(Text1.Text) And Val(Text2) > Val(Text3) Or Val(Text2.Text) < Val(Text3.Text) Then
            tangkaurut.Text = "Angka Tidak Terurut"
End If
End Sub
Private Sub CUlangi_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Tangkabesar.Text = ""
Tangkakecil.Text = ""
tangkaurut.Text = ""
End Sub