Private Sub cmdCustomerForm_Click
	Dim intScreenWidth As Integer

	intScreenWidth = CInt(GetSystemMetrics(0))
	If intScreenWidth < 1024 Then 
		DoCmd.OpenForm "frmCustomers"
	Else
		DoCmd.OpenForm "frmCustomersWide"
	End If
End Sub