Picture1.Cls
Picture1.ForeColor = vbRed
Picture1.Print "RECTANGLE"
Dim N1, N2 As Integer
Dim op1, op2, op3 As String
N1 = Int(....1.....)
N2 = Int(....2.....)
op1 = Option1.Value = True
op2 = Option2.Value = True
op2 = Option3.Value = True
If (N1 > N2 And op1) Then
MsgBox ("The required number of tiles for rectangle of length " & N1 & " And width " & N2 & " is " & (N1 - 1))
ElseIf (N1 > N2) Then
MsgBox ("Please select file size")
ElseIf (N1 < N2 And op2) Then
MsgBox ("Please make sure that length is either equal to or more than width and both are entered")
ElseIf (N1 = N2 And op3) Then
MsgBox ("The required number of tiles for rectangle of length " & N1 & " And width " & N2 & " is 1 ")
Else
MsgBox ("wrong select")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
....1..... = ""
End Sub
Private Sub Command4_Click()
....2..... = ""
End Sub