07-12-12, 07:18 PM
سويته بهذي الطريقة بس ماضبط
Public Class SHAPE
Public no As Integer
Public Sub draw(ByVal x As Integer)
no = x
If no = 3 Then
Form1.Text = "*" & vbNewLine & "**" & vbNewLine & "***"
ElseIf no = 4 Then
Form1.Text = "****" & vbNewLine & "****" & vbNewLine & "****"
Else
MsgBox("plz enter the no")
End If
End Sub
End Class
Public Class SHAPE
Public no As Integer
Public Sub draw(ByVal x As Integer)
no = x
If no = 3 Then
Form1.Text = "*" & vbNewLine & "**" & vbNewLine & "***"
ElseIf no = 4 Then
Form1.Text = "****" & vbNewLine & "****" & vbNewLine & "****"
Else
MsgBox("plz enter the no")
End If
End Sub
End Class
