Visual Basic

Private Sub myUnitHandler_DragStart(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)<br />
                If e.Button = MouseButtons.Left Then<br />
                    dragging = sender<br />
                    sender.DoDragDrop(sender, DragDropEffects.All)<br />
                    sender.bringtofront()<br />
end if<br />
end sub<br />
 Private Sub myTerritoryHandler_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs)<br />
            e.Effect = DragDropEffects.Move<br />
end sub<br />
    Private Sub myTerritoryHandler_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs)<br />
e.Effect = DragDropEffects.None<br />
                        dragging.Left = MousePosition.X - 5<br />
                        dragging.Top = MousePosition.Y - 182<br />
                        dragging.endcountry = sender.name<br />
                        dragging.beachland = 0<br />
                        dragging = 0<br />
end sub

Private Sub myUnitHandler_DragStart(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)<br />
                If e.Button = MouseButtons.Left Then<br />
                    dragging = sender<br />
                    sender.DoDragDrop(sender, DragDropEffects.All)<br />
                    sender.bringtofront()<br />
                    oldx = mouseposition.x<br />
                    oldy = mouseposition.y<br />
                    msgbox(oldx)<br />
                    msgbox(oldy)<br />
                End If<br />
End Sub<br />
Private Sub myTerritoryHandler_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs)<br />
            e.Effect = DragDropEffects.Move<br />
    End Sub<br />
 Private Sub myTerritoryHandler_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs)<br />
                        e.Effect = DragDropEffects.None<br />
                        dragging.Left += (MousePosition.X - oldx)<br />
                        dragging.Top += (MousePosition.Y - oldy)<br />
msgbox(oldx & " " & oldy)<br />
End Sub

Private Sub resourcesValue()<br />
        If purchase Then<br />
            spent = scal + sinf + sgen + sart + skni + sport<br />
            lblResources.Text = "Available Resources: " & rs - spent<br />
            If (rs - spent < 0) Then<br />
                lblResources.ForeColor = Color.Red<br />
                btnPurchase.Enabled = False<br />
            Else<br />
                lblResources.ForeColor = Color.Black<br />
                btnPurchase.Enabled = True<br />
            End If<br />
        End If<br />
    End Sub<br />
    Private Sub udCalvary_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udCalvary.ValueChanged<br />
        scal = udCalvary.Value * 8<br />
        resourcesValue()<br />
    End Sub<br />
    Private Sub udKnight_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udKnight.ValueChanged<br />
        skni = udKnight.Value * 11<br />
        resourcesValue()<br />
    End Sub<br />
    Private Sub udInfantry_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udInfantry.ValueChanged<br />
        sinf = udInfantry.Value * 5<br />
        resourcesValue()<br />
    End Sub

<br />
udCalvary.Maximum = Math.Floor(rs / 8)<br />
        udKnight.Maximum = Math.Floor(rs / 11)<br />
        udInfantry.Maximum = Math.Floor(rs / 5)<br />
        udArtillery.Maximum = Math.Floor(rs / 10)<br />
        udGeneral.Maximum = 1<br />
        If Math.Floor(rs / 10) >= 1 Then<br />
            udPort.Maximum = 1<br />
        Else<br />
            udPort.Maximum = 0<br />
        End If