Option Explicit

Dim FX as Long
Dim FY as Long

Private Sub Form_Load()
  Option1_Click (0)
End Sub

Private Sub Option1_Click(Index As Integer)
  Label3D Label1(), Index
End Sub

Sub Label3D(Ctrl As Variant, Optional Typ As Variant)
  Dim m as Integer
  FX = Me.ScaleX(1, vbPixels, Me.ScaleMode)
  FY = Me.ScaleY(1, vbPixels, Me.ScaleMode)

  If IsMissing(Typ) Then Typ = 0

  For m = 2 To 0 Step -1
    Ctrl(m).Caption = Text1.Text
  Next

  Select Case Typ
    Case 0
      Ctrl(0).ForeColor = QBColor(15)
      Ctrl(1).ForeColor = QBColor(0)
      Ctrl(2).ForeColor = QBColor(8)
    Case 1
      Ctrl(0).ForeColor = QBColor(8)
      Ctrl(1).ForeColor = QBColor(14)
      Ctrl(2).ForeColor = QBColor(0)
  End Select

  For m = 1 To 2
    Ctrl(m).Top = Ctrl(m - 1).Top + m * FY
    Ctrl(m).Left = Ctrl(m - 1).Left + m * FX
  Next
End Sub

Private Sub Text1_Change()
  If Option1(0).Value = True Then
    Label3D Label1(), 0
  Else
    Label3D Label1(), 0
  End If
End Sub