Menghitung Matrik Menggunakan Visual Basic

 If Option1.Value = True Then

            Text19.Text = Val(Text1.Text) + Val(Text10.Text)
            Text20.Text = Val(Text2.Text) + Val(Text11.Text)
            Text21.Text = Val(Text3.Text) + Val(Text12.Text)
            Text22.Text = Val(Text4.Text) + Val(Text13.Text)
            Text23.Text = Val(Text5.Text) + Val(Text14.Text)
            Text24.Text = Val(Text6.Text) + Val(Text15.Text)
            Text25.Text = Val(Text7.Text) + Val(Text16.Text)
            Text26.Text = Val(Text8.Text) + Val(Text17.Text)
            Text27.Text = Val(Text9.Text) + Val(Text18.Text)
       
ElseIf Option2.Value = True Then
           
            Text19.Text = Val(Text1.Text) - Val(Text10.Text)
            Text20.Text = Val(Text2.Text) - Val(Text11.Text)
            Text21.Text = Val(Text3.Text) - Val(Text12.Text)
            Text22.Text = Val(Text4.Text) - Val(Text13.Text)
            Text23.Text = Val(Text5.Text) - Val(Text14.Text)
            Text24.Text = Val(Text6.Text) - Val(Text15.Text)
            Text25.Text = Val(Text7.Text) - Val(Text16.Text)
            Text26.Text = Val(Text8.Text) - Val(Text17.Text)
            Text27.Text = Val(Text9.Text) - Val(Text18.Text)
       

        ElseIf Option3.Value = True Then
           
            Text19.Text = Val(Text1.Text) + Val(Text10.Text)
            Text20.Text = Val(Text2.Text) + Val(Text11.Text)
            Text22.Text = Val(Text4.Text) + Val(Text13.Text)
            Text23.Text = Val(Text5.Text) + Val(Text14.Text)
            Text25.Text = Val(Text7.Text) + Val(Text16.Text)
            Text26.Text = Val(Text8.Text) + Val(Text17.Text)
           
        ElseIf Option4.Value = True Then
           
            Text19.Text = Val(Text1.Text) - Val(Text10.Text)
            Text20.Text = Val(Text2.Text) - Val(Text11.Text)
            Text22.Text = Val(Text4.Text) - Val(Text13.Text)
            Text23.Text = Val(Text5.Text) - Val(Text14.Text)
            Text25.Text = Val(Text7.Text) - Val(Text16.Text)
            Text26.Text = Val(Text8.Text) - Val(Text17.Text)
       
       
       
       
       
        End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me

End Sub