Option Explicit
Private Sub Command1_Click()
Dim breite As Integer, hoehe As Integer, posx As Integer, posy As Integer
breite = Form1.ScaleWidth
hoehe = Form1.ScaleHeight
posx = Form1.ScaleLeft
posy = Form1.ScaleTop
Line (posx, posy + hoehe / 2)-(posx + breite, posy + hoehe / 2)
Circle (posx + breite - Text2.Text, hoehe / 2 - Text1.Text), Text1.Text
Circle (posx + Text2.Text, hoehe / 2 - Text1.Text), Text1.Text
End Sub
He likes to topple those who have the farthest to fall.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
