Option Explicit

Private Sub Form_Load()
  Dim IntI As Integer

  Text1.Text = "Linker Mausklick auf Form - > Schrift" & vbCrLf & _
        "Rechter Mausklick - > keine Schrift"
  For IntI = 1 To 8
    Combo1.AddItem Trim$(Str$(IntI))
    List1.AddItem "Eintrag" & Str$(IntI)
  Next
  Combo1.ListIndex = 3
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
  If Button = 1 Then
    FillWithText " 3D-Schatten "
  Else
    Me.Cls
  End If
  If Combo1.Enabled = False Then Combo1.Enabled = True
End Sub

Private Sub Command2_Click()
  Dim Ctrl As Control

  For Each Ctrl In Controls
    If Ctrl <> Label2 Then
      Make_3DSchatten Me, Ctrl, Val(Combo1.Text)
    End If
  Next
  Combo1.Enabled = Combo1.Enabled Xor -1
End Sub

Sub Make_3DSchatten(BackObj As Object, Ctrl As Control, _
      SchattenBreite As Integer)
  Dim intF As Integer
  Dim SCM As Integer
  Dim MerkMode As Integer
  Dim MerkRedraw As Boolean

  If SchattenBreite = 0 Then Exit Sub

  With BackObj
    MerkMode = .DrawMode
    SCM = .ScaleMode
    MerkRedraw = .AutoRedraw

    .ScaleMode = 3
    .AutoRedraw = True

    intF = SchattenBreite > 0
    .DrawMode = 6
    BackObj.Line (Ctrl.Left + SchattenBreite, Ctrl.Top + _
          SchattenBreite)-(Ctrl.Left + Ctrl.Width + _
          SchattenBreite, Ctrl.Top + Ctrl.Height + _
          SchattenBreite), , BF
    .DrawMode = MerkMode
    .ScaleMode = SCM
    .AutoRedraw = MerkRedraw
  End With
End Sub

Sub FillWithText(strTxt As String)
  Dim lngM As Long
  Dim lngN As Long

  Cls
  Font.Size = 12
  ForeColor = vbRed

  For lngM = 0 To Me.ScaleHeight
    For lngN = 0 To Me.ScaleWidth Step TextWidth(strTxt)
      Print strTxt;
    Next
    Print ""
  Next
  ForeColor = &H80000000
End Sub