tabel i VB-online

Det er muligt, kommandoen hedder line, hermed kan du tegne firkanter, cikler kan også tegnes.Sub Form_Click ()
  Dim CX, CY, F, F1, F2, I  \' Declare variables
  ScaleMode = 3  \' Set ScaleMode to pixels.
  CX = ScaleWidth / 2  \' Get horizontal center.
  CY = ScaleHeight / 2  \' Get vertical center.
  DrawWidth = 8  \' Set DrawWidth.
  For I = 50 To 0 Step -2
      F = I / 50  \' Perform interim
      F1 = 1 - F: F2 = 1 + F  \' calculations.
      Forecolor = QBColor(I Mod 15)  \' Set foreground color.
      Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
  Next I
  DoEvents  \' Yield for other processing.
  If CY > CX Then  \' Set DrawWidth.
      DrawWidth = ScaleWidth / 25
  Else
      DrawWidth = ScaleHeight / 25
  End If
  For I = 0 To 50 Step 2  \' Set up loop.
      F = I / 50  \' Perform interim
      F1 = 1 - F: F2 = 1 + F  \' calculations.
      Line (CX * F1, CY)-(CX, CY * F1)  \' Draw upper-left.
      Line -(CX * F2, CY)  \' Draw upper-right.
      Line -(CX, CY * F2)  \' Draw lower-right.
      Line -(CX * F1, CY)  \' Draw lower-left.
      Forecolor = QBColor(I Mod 15)  \' Change color each time.
  Next I
  DoEvents  \' Yield for other processing.
End Sub

ok det anede mig det ikke var let

Alt er let, blot rigtigt slave arbejde.

Man skal bare vide hvordan...