Private Sub Form_Resize()
 
  Const c_Abstand As Single = 50#
 
  If WindowState <> vbMinimized Then
 
    With cmdTest
      .Move (ScaleLeft + ScaleWidth) - (.Width + c_Abstand), (ScaleTop + _
        ScaleHeight) - (.Height + c_Abstand)
    End With
 
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time